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ABSTRACT 


The XPL CGP is a complete compiler generator package based on the 
XPL system. With the introduction of a semantic meta-language (SML) and 
an associated processor, the package is capable of generating a produc- 
tion compiler for any computer programming language with a mixed strategy 
precedence grammar. The only input required in most cases is the snytax 
of Bie language encoded in BNF and the corresponding semantics encoded 
in SML. The resulting compiler will generate code which ae be executed 


on a simulated stack-oriented machine. 
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I. INTRODUCTION AND BACKGROUND 


A. THE PROBLEM 

In view of the fact that computer-programming in high-level languages 
became commonplace less than twenty years ago, it is not surprising that 
opinions should differ on the form and function of these languages. 

There are some who believe that the language should be made to fit the 
user's needs and desires. There are others who advocate a single universal 
language to facilitate communication and efficiency. While both opinions 
have merit, the current plethora of high-level programming languages does 
give evidence to the need for a wide variety of programming constructs 

and data structures that are both adaptable and efficient. 

The greatest obstruction to the introduction of such user-oriented 
languages is, of course, the enormity of the compiler-writing task. 

Until recently, each compiler had to be laboriously hand-produced in 
assembly language. However, the advent of the compiler-compiler promises 
to significantly reduce the time and effort required to place a new 
language into cecactice, 

The compiler-compiler is neither simple in concept nor easily imple- 
mented. It requires the development and application of some very 
efficient data and meta-language structures. Since there is little 
formalism on which to base these structures, the problem of constructing 
an effective compiler-compiler is doubly difficult. 

1. As uséd herein, the term compiler-compiler is intended to represent 
only those programs which, given only some form of meta-language input, 


have the capability to generate a production compiler for any given 
language on any given machine configuration. 
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This research effort is envisioned as an investigation of the feasi- 
bility of an XPL-based compiler-compiler., The primary effort will be 
directed at automating the semantic processing phase of the XPL system. 
A semantic meta-language (SML’ will be introduced and a preprocessor 
will be developed to interpret SML. An analysis of the final product 


will be made to determine the feasibility of fully automating the system. 


B. REVIEW OF CURRENT SYSTEMS 

Attempts to develop a compiler-compiler have been based on a wide 
variety of techniques with varying degrees of success. A survey of some 
of the more significant efforts will provide some insight into the state 
of the art. 

1, Meta-Pi 

The Meta-Pi system [Ref. 1] , developed under the direction of 

J. T. O'Neil, is classified as a syntax-directed symbol processor |Ref. 2) 
Meta-Pi is essentially an interactive compiler-generator package which 
proxipaes a top-down, left-to-right, deterministic parsing alesenehe, 
Input to the system is in a BNF-like meta-language which allows both syn- 
tactic specification and semantic interpretation of the user language. 
The input is essentially transformed into a eae Rats of calls to recursive 
functions which perform ht tts checking and code production. The Meta- 


Pi system appears to suffer from a number of drawbacks, two of which seem 


1. It is generally agreed that there are three distinct processes which 
must be specified in a compiler: the parsing algorithm or syntax checker 
(syntactics), the semantic processing phase (semantics), and the specifi- 
cation of the language environment (mechanics). 


2. The term compiler-generator package (CGP) will be used to specify any 
compiler-compiler that is limited to a specific class of languages on a 
specific machine. 
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significant. The most apparent drawback is the Meta-Pi language; for 
although the syntactic input elements are straightforward, the variety 
and uniqueness of the semantic commands would make utilization cumber- 
some at best. A more significant than apparent drawback is the nature 
of the parsing algorithm. While Meta-Pi is itself deterministic and 
hence easily lends itself to top-down, left-to-right analysis, it is 
probable that any extensive user language is non-deterministic. The 
implementation of such a language would necessitate time-consuming backup 
and error-recovery procedures, and invite inefficiency. 
2.. CC (Compiler-Compiler) 

The CC (Compiler-Compiler) was developed by Brooker and Morris 
and is one of the oldest compiler-generator packages [Refs. 2 and si 2 
The result of the top-down, left-to-right syntax analysis performed by 
“CC on the BNF - like meta-language input is a complete syntax tree. 
This syntax tree is then collapsed by.the application of the semantic 
routines associated with the syntactic elements. One of the most signifi- 
cant features about CC is its modularity. Thus, while a number of the 
semantic routines might have to be developed by the user to implement a 
particular language construct, they can often be simply constructed from 
other more primitive routines. Additionally, the modularity would appear 
to allow a relatively straightforward approach to implementing the system 
on a different eine configuration. The, most significant shortcoming 
of CC is the extremely inefficient analysis algorithm employed. It is 
intrinsically time and space consuming for most user languages to be 


implemented. 
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3. FSL (Formal Semantic Language) 

FSL (Formal Semantic Language) was developed by Feldman and repre- 
sents one of the best-conceived efforts to produce a CGP [Ref. 4] . It 
is a relatively successful attempt at totally automating the semantic 
processing phase. One of the most important differences between FSL and 
its predecessors is the conceptual and physical separation of syntax and 
semantics of a user language. The input of syntactic specification to 
FSL is in PL, essentially a superset of BNF. Associated with each syntactic 
production is a semantic production which is given in the FSL meta- 
language. As each syntactic element is recognized by the bottom-up 
analyzer, the associated semantic production is executed. While there 
are a number of minor shortcomings present in the FSL system, primarily 
in the absence of some constructs in the meta-language, the motivation 
of the system is conceptually simple and easily understood. Furthermore, 
the FSL meta-language is natural, readable, and easily employed. 

4. XPL 

The XPL compiler-generator system was only recently developed by 
McKeeman et al. [ Ref. 5] and the concepts surrounding its development 
are quite similar to those of FSL. Like FSL, it is based on a bottom-up 
parsing algorithm; and like FSL, a semantic interpretation is associated 
with each syntactic element. However, very much unlike FSL, there is no 
semantic meta-language inherent in the system to simplify the semantic 
interpretation (except for the XPL source language). Instead, the user 
is required to completely specify nearly all compile and run time 
activities not associated with the syntactic analysis. This implies, of 
course, that the user is not restricted to only those constructs avail- 


able in a semantic meta-language. However, it also implies that he must 
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expend a greater effort to obtain a production compiler. It further 
implies that the user is able to specify the precise machine configura- 
tion on which his language is to be run, again at the expense of time 
and effort. Input to the XPL system is BNF for the syntactic specifi- 


cation, and XPL code for the interpretive phase. 


C. DEVELOPMENT 

The survey that has been presented is by no means exhaustive. The 
themes of these efforts are, however, sufficiently representative to 
allow speculation on the fara that a true compiler-compiler might take. 
Conceptually, ice l represents the CGP in its simplest form. The 
user encodes the syntax of the user language U in the syntactic meta- 
language Sy. The syntactic preprocessor accepts Sy as Sate and produces 
the syntactics which are inserted into a skeletal parsing algorithm to 
produce a syntactic analyzer for U. The user must then attach some form 
of machine description and code production algorithm to the analyzer. 
Figure 1 represents the XPL system. Figure 2 is identical to Figure 1 
except for the automation of the code production algorithm. Now instead 
of having to hand produce this algorithm, the user encodes the interpre- 
tation of the syntactic productions in the semantic meta-language Se. 
The semantic preprocessor accepts Se as input and produces the semantics 
which are inserted into a skeletal interpretive leer ithe to form a code 
production algorithm. Figure 2 is representative of the FSL system. 
Finally, Figure 3 represents a true compiler-compiler. The final dif- 


ference lies in the addition of a machine preprocessor which accepts a 


—_ 


1. XPL code is a powerful dialect of PL/I; it maintains many of the 
PL/I constructs and implements many additional features to improve its 
CGP capabilities. 
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description of the machine configuration in a mechanical meta-language M 
and produces the mechanics necessary to complete the CGP. It is an 
unfortunate fact of life that CGP III has not yet been developed. 

The purpose here is to produce a viable CGP in the form of CGP Lt; 
based on the XPL system. With that in mind, section II will serve as a 
short introduction to the XPL system as it presently exists. This will 
be followed in section III by a complete description of the semantic 
meta- language, sui. Section IV will report on the implementation of 
SML and the total XPL CGP package. Finally, section V will conclude with 
an analysis of this research effort and suggestions for improvements and 


additions. 


1. Prior to reading this section, the reader should acquaint himself 
with the general format of the XPL CGP by referring to Figure 11. 
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Tb! THE KPL SYSTEM 


A. AN OVERVIEW 

The XPL compiler generator system was developed at Stanford by 
McKeeman et al. in the late 1960's LRef. 5] . It was specifically 
designed to be run on an IBM system 360. In its entirety, the XPL sys- 
tem can be viewed as depicted in Figure 4. All batch stream programs, 
of course, interface with most system 360's by means of IBM Operating 
System 08/360. In turn, all load modules produced by the XPL system 
interface with 0S/360 by means of the XPL Submonitor (XPLSM). From the 
user's point of view, source programs encoded in the XPL language are 
compiled into IBM 360 machine language by the XPL Compiler (XCOM) which 
is itself an XPL load module run under XPLSM (see Figure 5). Two 
by XCOM and run under XPLSM, essentially complete the XPL CGP. The fol- 
lowing sections include a review of the parsing algorithm employed by the 
XPL system, a closer look at each of the major components of the system, 


and a brief review of the XPL language. 


B. THE XPL PARSING ALGORITHM 

The parsing algorithm employed by the XPL system can be broadly 
Maasakenie ned. aa a bottom-up, table-driven procedure, It is often referred 
to as a mixed-strategy precedence (MSP) algorithm, a name it derives from 
its ability to handle grammars which are somewhat more complex than simple 
precedence grammars and somewhat less complex than extended precedence 


grammars [Ref. 6] 
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XPL SYSTEM AND ENVIRONMENT 








IBM SYSTEM 360 


OPERATING SYSTEM 0S/360 


XPL SUBMONITOR 


XPL LOAD MODULE 


Figure 4 
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This algorithm is based in the fact that, if a grammar is unambiguous, 
every sentence has a unique canonical parse. The parsing problem is thus 
reduced to finding the next canonical parse step at each increment. For 
the XPL system, this is accomplished by referring to the "canonical 
parsing function" which is essentially embedded in a set of stacking 
decision and production selection tables. The essence of the algorithm 
is as follows: As each new element from the input is picked up, the 
analysis algorithm determines from the stacking decision tables and the 
current state of the production stack whether a reduction can be made. 

If not, the new element is stacked and another is selected from the input. 
If a reduction is called for, the algorithm determines which production 
is to be applied by referring to the production selection table. Semantics 


are associated with syntax immediately before each reduction is made. 


C. THE COMPONENTS OF XPL 

Figure 6 portrays the XPL CGP in total from the user's point of view. 
Although the average user will have no direct contact with either XPLSM 
or XCOM, these two modules form the backbone of the system. On the 
other hand, all users will require some familiarity nae ANALYZER, and 
nearly total intimacy with SKELETON. 

1, XPLSM 

Execution of an XPL program under 0S/360 begins after 0S/360 has 

loaded XPLSM and given it control. XPLSM then proceeds to open the 
necessary files, obtain main memory space, and read in the XPL program. 
Once the XPL program is in memory, XPLSM transfers control to it and it 


begins execution. During the course of execution, the XPL program may 
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call upon XPLSM with requests for service. In particular, XPLSM has 
facilities for string input/output, direct access storage, debugging 
aids, error handling and reporting, and the inclusion of any desirable 
monitor functions by the user. When the XPL program finally finishes 
execution, it returns to the submonitor which in turn returns to 0S/360. 

2. XCOM_ 

XCOM, the XPL compiler, is encoded in the XPL language and is 
therefore self-compiling. Basically, XCOM is a large XPL program con- 
sisting of a sequence of procedures which are invoked in turn by the 
procedure MAIN-PROCEDURE. The program body consists of only a call to 
MAIN-PROCEDURE and a return statement to communicate with succeeding 
steps, if any. The essential procedures of XCOM are displayed in Figure 7. 
INITIALIZATION tabulates all of the constants and generally lays the 
‘groundwork for the compilation process. COMPILATION-LOOP simply invokes 
a set of procedures which constitute the parsing algorithm. SCAN deter- 
mines the next symbol in the input text, and STACKING is the precedence 
function which decides whether a reduction is called for. REDUCE searches 
the production rules for a match and invokes PR-OK to verify the produc- 
tion selection. If a satisfactory reduction can be accomplished, SYNTHE- 
SIZE is invoked to perform various compile-time activities and produce 
code. Finally, if all goes well, LOADER collates the object code files 
to facilitate execution of the succeeding step, and PRINT-SUMMARY outputs 
a set of statistics that have been collected during the compilation. 

The principle difference between XCOM and SKELETON lies in the multi- 
tude of code emission procedures present in XCOM. This set of procedures, 
which were hand-coded in XPL, produce an XPL load module containing all 
of the necessary run-time data structures and some very efficient system 
360 machine language code. 
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3. ANALYZER 

The foremost purpose of ANALYZER is to construct the necessary 
parsing tables for insertion into the analysis algorithm of SKELETON. 
From the user's point of view, ANALYZER accepts a BNF description of the 
user language grammar and produces the required tables on punched cards - 
assuming there are no errors inherent in either the grammar or in its 
encoding. Granting that initial efforts to produce an errorless grammar 
are bound to failure, ANALYZER contains an extensive debugging facility 
that the user may call up to aid in producing an acceptable MSP grammar, 

The most significant procedures of ANALYZER are ees in 
Figure 8. The main loop in ANALYZER is contained within the last several 
lines of the program, which contain a series of calls on the lee tiie 
procedures. ‘The procedure READ-GRAMMAR initializes conditions, calling 
in turn GET-CARD (reads the next card), SCAN (whose value is the next 
element of the current card), and SORT-V (which sorts the BNI vocabulary). 
COMPUTE-HEADS lays some groundwork for succeeding procedures and tests 
the grammar for symbols that are both left and right recursive. PRODUCE, 
the heart of the program, invokes APPLY-PRODUCTION and DISAPPLY to simu- 
late recursion, and NEVER-BEEN-HERE to build a table of production 
contexts. This table is then-employed by COMPUTE-Cl to build the 
stacking decision tables Cl and C1TRIPLES, and further by COMPUTE-C2 to 
test contexts for possibly Resae lesen productions. When all of the 
required tables have been built, PUNCH-PRODUCTIONS punches these tables 
on cards. If errors have been detected at any stage, ADD-TROUBLE records 
these errors. If the user has so requested, the procedure IMPROVE-GRAMMAR 


is invoked after the first iteration in an attempt to resolve the conflicts. 
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PROCEDURES OF ANALYZER 


PRINT-MATRIX 






BUILD-RIGHT-PART COMPUTE-HEADS 
OUTPUT-PRODUCTION ADD- ITEM 
| 
ADD- TROUBLE PRINT-FORM 
| 
PRINT-TRIPLES APPLY-PRODUCTION 
— COMPUTE-C2 NEVER-BEEN-HERE 
IMPROVE-GRAMMAR DIS-APPLY 
LOOK-UP ENTER | PRODUCE 
SCAN EXPAND : BULLD-CARD 
GET-CARD COMPUTE-Cl PUNCH-CARD 







SORT-V -PUNCH-PRODUCTIONS 


PRINT-DATE INDEX-F11 


READ- GRAMMAR SORT-PRODUCTIONS 


MAIN PROGRAM 


Figure 8 
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4. SKELETON 

SKELETON is the heart of the user's production compiler. Given 
only the syntactic tables produced by ANALYZER, SKELETON will function 
as a syntax checker on the user's language. 

The major components of SKELETON are shown in Figure 9. (See 
Appendix A for a complete listing.) As was previously stated, there is 
little conceptual difference between SKELETON and XCOM. The only signifi- 
cant difference lies in the complete absence of code emitting procedures 
from SKELETON. It has been left to the user to specify the environment 
under which his language is to be run, and to attach meaning to the 
recognition of any specific production. 

In brief, to build a production compiler for the desired language 
the user is required to: 

a. insert the ANALYZER tables; 

b. fine tune SCAN to identify any constructs peculiar to 
the user language; 

c. specify the working environment of the language; and 

d. construct code emitters and add the required generators 


to SYNTHESIZE. 


D. THE LANGUAGE XPL 

The additional programming necessary to convert SKELETON to a pro- 
duction Sites is done in the language XPL. The BNF for XPL is given 
in Appendix B and a thorough description of all of the constructs is 
provided by Ref. 5. However, a few of the more important constructs will 
be briefly presented to enable the reader to follow subsequent programming 


logic. 
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PROCEDURES OF SKELETON 


GET-CARD 
RIGHT-CONFLICT CHAR 








STACK-DUMP 


SYNTHESIZE STACKING 





PRINT-SUMMARY 


COMPILATION-LOOP INITIALIZATION 





MAIN-PROCEDURE 


Figure 9 
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1. MACRO DEFINITION 


Simple parameterless macros may be defined using the "literally" 


attribute. When an identifier is so declared, any later occurrence of 


that identifier will be replaced during compilation by the character 


string. following the reserved word literally. 


2. DO CASE CONSTRUCT 


The "DO CASE' construct is a generalization of the selective 


capability of the "if statement." Thus, the interpretation of the state- 


ment "DO CASE I;'' would be to cause execution of the pth statement in the 


group body that follows. 


3. IMPLICIT PROCEDURES — 


Unless explicitly redefined, a number of procedures are available 


to the XPL user. 


are tabulated below: 


Function 
BYTE(c) 
BYTE(c,F) 
EXIT 


INPUT 


LENGTH (c) 


OUTPUT 


Zi 


Some of the more common ones (e.g. BYTE, SUBSTR, INPUT) 


Use 


A function with fixed values given 
by the leading 8 bits of the character 
string C. 


th 
Like above, except given by the F— 
So DEES, 


A procedure which causes an abnormal 
exit from XPL execution. 


A function with character value 
given by the next record on the input 
file (SYSIN). 


A function with fixed value equal to 
the length of the character string c. 


An XPL pseudo variable such that any 
value assigned to it is placed in. 
the output file (SYSPRINT). 
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Function Use 


SHL(f1, £2) A function with fixed value given 
by shifting the value of fl left 
the number of bit positions indi- 
cated by f2. 


SHR(f1, £2) The opposite of SHL. 
SUBSTR(c, f) A function with character value given 
by the substring of c starting at 


position f to the end of the string. 


Suesir(e,£1,.£2) Like above except with length f2. 
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IIIl. THE SEMANTIC META-LANGUAGE 


A. AN INTRODUCTION 

The XPL CGP is primarily intended to automate the semantic interpre- 
tation phase of the XPL system through the use of an intermediate semantic 
meta-language (SML). Initial efforts to institute SML were largely based 
on Feldman's work [Ref, 4] . However, SML's development was guided by 
the XPL environment in which it was to be run. 

It was obvious that SML should allow a language to be easily described, 
both from the standpoint of facility and of time. Furthermore, it should 
be complete enough and implemented in such a manner as to allow for 
complete compiler generation insofar as semantics are concerned. Finally, 
it should be machine independent. To a large extent, these criteria 
have been met. Where they have not, or where some obviously desirable 
feature is lacking or could be better implemented, it is reported in 


the conclusion. 


B. THE CONSTRUCTS OF SML 
What follows is intended to serve both as a complete description of 
SML and as a user's guide. The complete BNF for SML is given in Appendix 
D; and the prospective user is referred to ot ee I-K for detailed 
examples on using SML. 
1. SML Program Structure 
The overall structure of a SML program is given by the following 


BNF equations: 


< semantic programy» <header> <sequence>? END 
<header? : <begin? <declaration set? 
<begin? .¢= BEGIN 
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{declaration set> ::= Cdeclaration>? ; 
| <declaration set> <declaration? ; 
< sequence ? ::= “bracketed sentence? 
| sequence? <bracketed sentence> 
:= <delimiter 1> <¢sentence> 


delimiter 2? 


<bracketed sequence? : 


Zdelimiter 1? ::= # 
<delimiter 2 ? ccs @ 
<€sentence > ::= <statement ? 


| <sentence? <statement> 
Thus a valid SML program, which is interpreted by the Semantic Preproces- 
sor, would be: 
BEGIN 
<declaration ; 
€declaration ; 
@ <sentence ij 
@ sentence # 
END 
The important point to extract from this discussion is the use of the 
delimiters @ and #. Each pair of these delimiters associates a sentence 
of SML statements with one of the BNF productions. The user, however, 
is not required to use these delimiters directly. Rather their placement 
is one of the functions of Prescanner. 
2. Declarations 
A number of different data structures are available to the XPL 
CGP user to facilitate compile-time activities: 
< declaration? ::= “<table declaration> 
€stack declaration > 
€cell declaration? 
<tag declaration > 


€string declaration? 
<flag declaration? 


For each of these declarations, the Semantic Preprocessor sets up an 
associated data structure in the basic user compiler, Superskeleton which 


is addressable by the given identifier. 
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a. Tables 
Tables are one of the most important structures in a compiler, 
and are normally used to store a variety of information about run-time 
structures. The BNF equations for a table declaration are as follows: 


<table declaration> ::= €table> g¢stable specifier> 
| table declaration» 
<stable specifier> 
<table? ::= TABLE 
€stable specifier? ::= {stable header> €fields> 
éstable header? : <identifier> “number part> 
<number part? 7% ( £number > 


i} 


i} 


tL” ie: 
<fields> s:= ¢field> 
| éfields? , <field> 
<field? ::= €identifier? <type specifier> 
<type specifier? ::= “bit> 
| CHAR 
| INTEGER 
<bit > ¢2= BET 


{| BIT € number? 
An example of a valid table declaration would be: 


TABLE Tl (100: TYPE BIT 8,LOCATION INTEGER), 
TZ ($: ACE BIT,CITY CHAR); 


which would be interpreted by the Semantic Preprocessor as a command to 
set up two tables called Tl and T2 in the user compiler. Table Tl is to 
have three fields for each of a maximum of 101 entries: a character field 
for the run-time structure name, a bit field of width 8 to be addressable 
as TYPE, and an integer field to be addressable as LOCATION. Table T2 is 
also to have three fields for each entry, but an indefinite number of 
entires. Indefinite is implied by the $. This implies in turn that the 
maximum number of entires is limited only by the capacity of the Super- 
skeleton table structures. The first field of T2 is also a character 
field for the structure name. The second is a bit field (of width 32 by 
default) addressable as AGE, and the third a character field addressable 


as CITY. The resulting tables can be conceptually viewed as depicted in 


Figure 10. 
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THE USER'S VIEW OF TABLES AND STACKS 





aaa 
$uck declaration 
wa ? 
SMe Si (100-. Ty? 
“. Seal 
0 
$a TYPE LOCATION 
STRUCTURE NAME 
CHARACTER BIT 2 CHARACTER 


eS 


a2 





STRUCTURE NAME 


Figure 10 
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b. - Stacks 
Stacks are another widely used structure in compiler writing, 

often being employed for dealing with recursive or temporary constructs. 
The BNF equations for stack declarations are identical to those for 
tables except for the first three: 

< stack declaration? ::= €stack> <stable specifier> 

| stack declaration? , 
<stable specifier? 
{stack 7 . ¢2= STACK 


A typical stack declaration might be: 


STACK S1 (100: TYPE BIT 8,LOCATION INTEGER), 
S2 ($: AGE BIT,CITY CHAR); 


which would result in ieee compiler data structures identical to eae 
for tables Tl and T2 respectively. Of course, Sl and S2 would be treated 
as and act like stacks instead of tables. 
| ©, - Celis 

The cell declaration is intended to accommodate the need for 
Piasiewalocd variables, Accordingly, the declaration of a cell causes 
the allocation of a aa word which may be assigned an integer value. 
The corresponding BNF equations are: 

€cell declarationy ::= CELL Cidentifier > 
{| €cell declaration> , 
<identifier > 
and a typical cell declaration would be: 
GULL.“ 11,12 513,14; 
d. Tags 
The BNF equations for a tag declaration are: 


<tag declaration? ::= TAG <¢identifier> 
{ <tag declaration? , ¢identifier> 


The tag construct can be useful in "tagging'"' fields of a table or stack 
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as having certain characteristics. For instance, give the declarations: 


TABLE Tl ($: TYPE BIT 6,LOC CHAR); 
TAG MATRIX, VECTOR, CONSTANT, STRING; 


then the field TYPE might be tagged as either a MATRIX, VECTOR, CONSTANT, 
or STRING by an appropriate assignment statement. 

The interpretation of a tag declaration by the Semantic Pre- 
processor causes a unique XPL literal declaration to be made in the user 
compiler. 

e. Strings 
To facilitate the manipulation of strings in the user compiler, 
string variables may be declared according to the following BNF equations: 
{string declarationy ::= STRING identifier 
| qstring declaration> , 
<identifier> 
A typical string declaration such as: 
STRING ST1; 
would cause the allocation of a character string addressable as STI. 
f. Flags 
The BNF equations for a flag declaration are: 
<flag declaration» ::= FLAG <identifier> 
| <flag declaration? , 
<identifier> 
Flags are essentially simple Boolean variables which may take on the 
value either TRUE or FALSE. They are often useful to specify the state 
of the compilation process. . 
Given the declaration: 
FLAG F1; 
the Semantic Preprocessor would allocate, in the user compiler, a flag 


1. Note that a bit field of width 6 is always sufficient to utilize the 
tag construct. 
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addressable as Fl and initialized to the value FALSE. 
3. SML Variables 
Before considering the various operations that can be performed 
upon the data structures described above, a brief overview of the SML 
primitive variables is necessary. There are basically two classes of 
variables, boolean and arithmetic, 
a. Boolean Variables 


Tne BNF equations for Boolean variables are as follows: 


<boolean> ::= boolean term> 

| boolean? <or>? boolean term> 
<or> s2== JOR 
<£boolean term? ::= boolean factor? 


| <boolean term? and? 
€ boolean factor? 


<and? ::= AND 
£boolean factor? ::= <boolean primary? 
| not? “boolean primary? 
£not? ‘c= KOT 
£boolean primary? ::= {arithmetic>? <relation> 


<arithmetic? 
| <ldel*? <boolean>? <rdel*> 
| <test> <primary? 
| TRUE 
| FALSE 
<test? ES NESE 
<ldel*? “gf 
érdel*> = 2 
érelation? = Sion. 
Shem 
- EQL. 
.NEQ. 
.GEQ. 
-GTR. 


All of these constructs, except the use of <ldel*? <boolean> <rdel*> 
and <test> ¢primary> , have the usual interpretation. The ldel*> 
<boolean>? <rdel*> merely indicates grouping, but the test construct 
requires more explanation. 

In brief, the test construct can be employed to extract 


information about the state of various data structures. Given the 
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boolean primary "TEST A", then if A is a cell, TEST A will have the value 
TRUE if A is greater than zero. If A is a string, then TEST A will have 
the value TRUE if A is the null string. If Ais a flag, then TEST A 
will have the value TRUE if A is true. Pinwtiy, if A is a stack, then 
TEST A will have the value TRUE only if A is not empty. In all other 
cases, TEST A will have the value FALSE. 
b. Arithmetic Variables 
For arithmetic variables, the BNF equations are: 
<arithmetic> ::= <term> 
€+> <term> 
<-> gterm> 


<qarithmetic> £+> <¢term> 
€arithmeticp>? ¢-> <term> 


{+> =. oe 
<-> ; i — - 
<term? s7= €£factor> 


| {term>? <*> <factor> 
| <<term> £/>» <¢factor> 


<x? iis = 
</7 fet | 
<factor? ::= primary? 
| <factor> “** > c¢primary> 
Lux sz KX 
éprimary? ::= operand» 
< number? 


| 

| bit string? 

| «character string» 

| <ldel*> <arithmetic> ¢rdel*> 
Loperand ? ::= “stable operand> 

| floating operand? 

| storage operand> 

| code operand? 

| ( <list operand? ) 


<storage operand? ::= identifier? 
list operand? ::= €primary> ; ¢primary? 
[| ““€1list’ operand? “; “@ primary> 


Most of these constructs have their usual meaning. As with boolean 
variables, the use of €ldel*> Carithmetic> ¢rdel*> is to indicate 


grouping. The list operand, which allows for list assignments of up to 
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16 variables, is one of the more useful constructs in the compiler writing 
process. Discussion of the stable operand, floating operand, and code 
operand is deferred to the appropriate sections. 
4. SML Operations 
Before proceeding with a discussion of SML operations on data 
structures, it is important to note that SML primitives cannot be embedded 
in one another. This perhaps unfortunate restriction is due to the way 
in which the Semantic Preprocessor incrementally examines the SML input 
and constructs the XPL code stream output. 
The BNF equations for general statement types are as follows: 
Zstatement > ::= €unconditional> 
| conditional? 


| <label? < statement? 
| < comment > 


. 
> 


<£comment > ::= £ldel? <remarks> <4rdel> 
£ldel7 [i= * 

Zrdel> = 8 

<labei? ::= Cidentifier> 
<unconditional? = assignment? 


| <operation> 
|. transfer? 
operation Y ::= “table operation? 
| stack operation» 
| <code operation? 
| auxiliary operation? 
<transfer? -;:= JUMP <identifier> 
The only terminal constructs introduced in the above equations are the 
statement label and comment. The appearance of a comment, for example: 
/* THIS IS A COMMENT */ 


is given no semantic interpretation and hence is ignored by the Semantic 


Preprocessor. Neither does the label construct have any meaning. IC 


1. The interpretation of the list assignment: (A3B):=(C3D); would be: 
A:=B; and C:=D;. 
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does, however facilitate transfer of control within the SML program. For 


example: 


When the JUMP LAB statement is encountered in the SML program, control 
is transferred to the statement labelled LAB. 
The discussion of the various SML operations which follows is 
separated into sections according to the data pereceares involved, 
a. Assignment Statement 
The most general SML operation is the assignment statement 


which can be used with all types of data structures. The appropriate 


BNF equations are: 


< assignment 7 ::= Cleft part? ¢< arithmetic» 
{ <left part? <boolean> 
~left part > ess < primary 7 ‘= 


and they have the usual interpretation. Considering only the primitive 
variables, the following are valid examples of an assignment: 


BEGIN 
(ELI Ay B,.€,%,Y, 23 
STRING ST1,ST2,ST3; ~ 
FLAG F1,F2,F3; 


Aois= Ks 

Roeir= 720; 

ie-eecy 2= (XsY3Z); 

C := AX QBHC/ 472-<£ X**Z 777; 
See *s= S12; 

STA! s=:t'ABCKXYZ'; 

Fl := "1"; 

F2 := TRUE; 

FS += TEST A; 

Fl := NOT TEST A; 


27> CAB > .L8S; <K-Y> ; 
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b. Cell Operations 
There are only two commands which deal with cells, the BNF 
equations for which are: _ 


auxiliary operation> ::= TALLY Cidentifier> 
| MINUS <identifier> 


If A is a cell, then the statements: 


TALLY A; 
MINUS A; 


are equivalent to 


Acs herhs 
A := A-1; 
respectively. 


c. Table Operations 
There are a number of SML constructs available to facilitate 
manipulating tables. The declarations: 
TABLE 11(100:1YPE BIT 6,LOC BIT), 
T2($:ATYPE BIT 6,ALOC BIT); 
CELL X,Y,Z; 
TAG MATRIX, VECTOR, CONSTANT ; 
will be used in the discussion which follows. 
The enter command is probably the most useful table command, 
The corresponding BNF equations are: 
<table operation> ::= “enter operation> 
Center operation? . ::= €entry pointl? <list operand> ) 


| <€entry pointl> <primary? ) 
entry point? 


entry pointl? 


gentry point> ::= “enter> < variable? 
Senter> ¢:= (ENTER) < identifier? 
<variable> ::= = <€primary> 


Thus, a typical enter command might be: 
ENTER (T1 = 'NAME':MATRIX;X); 
which would cause the ordered triple ('NAME',MATRIX,X) to be entered into 


* 


the table data structure addressed as Tl. The only restriction on the 
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use of this command is that all fields as given in the corresponding 
declaration must be accounted for. Hence the command: 

ENTER (Tl = 'NAME': MATRIX) ; 
would not be valid. The enter command could still be used in this 
situation by the addition of a dummy variable; for instance: 

ENTER (Tl = 'NAME':MATRIX;0); 
would be valid. 

In order to locate a specified entry in a particular table, 
the loc operand can be used in conjunction with an assignment statement. 
The BNF equations for this construct are: 

{stable operandy ::= {loc operand? ) 


<loc operand > loc? <variable> 
<locy LOC ( <identifier? 


and a typical locate command might be: 
A := LOC (Tl = 'NAME'); 
The execution of this statement would cause the ee of the entry ‘NAME' 
in table Tl to be assigned to cell A. This index can be used in conjunc- 
tion with two more table operations, the delete and set operations, 
The delete command, which has two forms, can be used to 
delete a specified entry in a particular table. BNF equations for the 


delete operation are: 


<table operationyY ::= {delete operation> 

<delete operation» ::= €delete> <variable? ) 
{ DELETE ¢identifier? 

delete? ::= DELETE ( <identifier> 


If the index of the entry is known, the short form should be used for 
efficiency. For example: 
A := LOC (Tl = 'NAME'); 


DELETE A; 
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is the most efficient method for removing the entry associated with the 
structure 'NAME'. If, however, the index is unknown then the other form 
of the delete command will cause the same action; for instance: 

DELETE (Tl = 'NAME'); 
will have the same effect as the first form. 

If only the structure name is known and the user wishes to 
allocate a table entry to be manipulated at a later time, then the most 
appropriate method would be to use the entry operand, the BNF equations 
for which are: 

<stable operand» = gentry operand> 4) 


<entry operand? entry? Cvariable? 
<entry> ENTRY ( <identifier? 


i] 


An example of its use would be: 
B := ENTRY(T2 = 'NAME'); 
which would cause the entry of the structure name 'NAME' into table T2, 
the reservation of fields ATYPE and ALOC to be associated with 'NAME', 
and the assignment of the index of the entry to B. As with the loc 
operand, this index can be used with either the delete or set operation. 
The final type of table operation employs the set operand, 


the BNF equations for which are: 


{stable operand> : ::= {set operand> ) 

<set operand? ::= “set point> <list operand? 
set point> <Cprimary> 

set point> " st= €set point 1> variable? 


€set point 1> 
€set> <identifier> 
SET ( 


set point 1? 
<set 7 


Like the delete operand, the set operand has two forms depending upon 
whether the entry index is known. The first form, an example of which 
might be: 


(A;B) := SET(T1l = 'NAME': TYPE;LOC); 
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is used when the index is unknown and only to extract table information. 
In this particular example, the information contained in the TYPE field 
of the entry associated with the structure 'NAME' is assigned to ni the 
information in the corresponding LOC field is assigned to B. When the 
index is known, the set operand may appear on either side of the assign- 
ment statement. For instance, 

A := SET(B: TYPE); 
is interpreted as 

& => TYPE(B); 
and 

SET (CB: TYPE) <= A; 
is interpreted as 

TYPE(B) := A; 
It is important to note that, in any case, the identifiers in the set 
operand specify the field names of the appropriate table; they are not 
variables. 

ad" Stack Guetutions 
There are a number of SML constructs available for manipulating 

stacks. In the discussion which follows, the following declarations will 
be referred to: 

STACK S1(100: TYPE BIT,LOC INTEGER) , 

S2($:ATYPE BIT,ALOC INTEGER) ; 

CELL A,B; 

STRING X,Y; 

TAG UP,DOWN; 


The simplest form of a stack operation is an assignment 


statement of the form: 
which will cause the field contents of S2 to be "pushed" onto the 
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corresponding fields of Sl, and S2 to be "popped." The obvious restriction 
in the use of this operation is that the number and attributes of the 
stack fields be identical. 

To accomplish exactly the same purpose as described above, 
except that S2 is not to be popped, the top operand can be used. The 
corresponding BNF equation is: 

{stable operand > ::= TOP identifier> 
and an example of its use would be: 
SLs OP 82: 
An entire set of entries can be pushed onto a stack by using 
a list operand in conjunction with an assignment statement, for example: 
S2-3=. GisUPsA)s 
The reciprocal of this type of an assignment can be used to extract the 
respective field contents and pop the stack: 
(X;A;B) := S82; 
To extract the field contents, but not pop the stack, the top operand 
can be used as follows: 
(EiA-B}...:=,., TOP 82; 
In all of the above cases where the list operand is employed, it is 
important to note that the number and type of Bere en Net tte in the 
list should be identical to the fields of the corresponding stack, 

To manipulate specific entries in the stack, the set operand 
may be used, For instance, to enter a structure name and a single field, 
the command: 

SET(S1 = 'NAME': TYPE) := DOWN; 
might be used. To fill the LOC field at a later time, use the command: 


SET(S1:LOC) := A; 
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Or, to extract information from a specific field: 
A := SET(S2:ATYPE) ; 
In summary, the set operand can be used to manipulate stacks exactly as 
to manipulate tables, with the exception of using the stack name as an 
index for stacks instead of an actual index as for tables. 
Finally, to simply pop a stack the pop command may be used. 
The corresponding BNF equation is: 
stack operation> ::= POP <¢identifier> 
and an example of its use would be: 
POP Sl; 
e. Code Operations 
SML ‘code is interpreted by the Semantic Preprocessor — 
translated into an XPL code stream which is one of the inputs to the 
basic user compiler, Superskeleton. The completed user compiler subse- 
quently interprets the user language code and translates it into balgoi-2 
machine code, which is executed by the stack-oriented machine simulator, 
Balgol-2 [Ref. 7]. 
To insert XPL code directly into the user compiler or to cause 
the user compiler to emit machine code, the direct and indirect code 


commands may be employed. Thé appropriate BNF equations are: 


<code operation> ::= NOCODE 
“\) > @eode> 
écode? ::= direct? 
| <indirect? 
<direct? ::= CODE character string» 
4indirect? s:= €code 1> <character string> ) 


I code 1» operand pair? ) 
| €code 17 contents? ) 


<code 1> s7=) CODE 
<operand pair? ::= “operator? 

| <operator> , character string» 
<operator? s:= OP €character string? 
<contents? ¢s= CONT <character string> 
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The nocode command, simply 
NOCODE; 
is equivalent to the standard NOP instruction and has no interpretation 
in either the Semantic Preprocessor or the user compiler. 

In order to insert XPL code into the user compiler code 
stream, the direct form of the code command is used. An example of this 
command would be: 

CODE 'FIXV(MP) = LSS;'; 
This command will prove useful in manipulating the parse stack entries 
in the user compiler, and in handling situations not otherwise covered by 
SML. ; 

In order to cause the user compiler to emit machine code, in 
turn causing a value to be loaded into the Balgol-2 execution stack, the 
first form of the indirect code command is used. For example: 

CODE -¢°72.*); 
will cause the number 72 to be loaded into the execution stack at run 
time. The command: 

CODE (‘'B'); 
will likewise cause the contents of the variable addressed as B to be 
loaded into the execution stack. | 

To cause the user compiler to emit a machine command or an 
operator/operand pair, the second form of the indirect code may be used. 
For instance: 

CODE (OP 'ADD'); 
will cause the insertion of the ADD operator into the machine code 
stream. And: 


CODE (OP 'IM1', 'FIXV(SP)'); 





povresen’ st Bastoase a a 
Aes cet 
yeas? a a 28h raneNAOTT 9, some 08, ki 
i we ; * . 3 ne 
7 - 2 —_ wor we ian: abe ra cine 77 os. sabe a 


4 
ye chara ‘bionsite “e ‘308-20 ao} rete a 































. 
_ 


= 
ri 
2 


Seth y shame 
= 2. 















- | % 
a ae ; — s >. af Pe . kA 
; i a 5) s5 — - “he “~~ = 9 = , i “. : J 
: > . ° Per : ¥ , 
» = 7 a we. ; 9 ' 7 ’ 7 ~~ id Fs - Sa ¢ j "7 ry "y - 
a 7 . = 7 oI + - Oe en {et were pa) ws 

at ™ rv ’. , 7 ¢ 7 a - 
- q ' > 





Shans tion wailed outs ais se fe ubivem nd Liuten ore ifae 









. : « 
dined az ils a 20 catenins TVs ‘poate ah -ci- See wml kqmea- ry 
* ors ¢ i 7 ’ 
rp ; pi , : : 

a »* 


‘ . 7 = 














=n a ‘ ‘ - ie ‘ 
bet: sOn i fp hat al S thli-wmmeo xonu eta *swk ¢ woo wl’. \ ’ 
of ‘ 4, i ay ° / 











4 
DP eeiidsete” S-Ton tot wig “Qin dingael ed éc oulev « goelemas) 
fi? Dade —ae: N 
be ae : 
4 toda wer s07 ete ss Uniwibo ab63 coeti fe) ota 
i fe= 6 ae se ee * _* 
owe <6. wre se + < Teber he 





wD 83 2) a: < o7 6} a ~$) ase ute seuns té; 










= / 


; ° itee tqveee etl a 


id ‘@ty 2003. : 


» 


Sacer). 20 a 





ye 
ROTI: 


will cause the insertion of the IM1 operator and the value of the 
variable FIXV(SP) into the machine code stream, 

To provide for a level of indirect addressing, the third form 
of the indirect code command is used. Thus the command: 

CODE (CONT 'B'); 
will cause the value of the variable whose address is contained in the 
variable B to be loaded into the execution stack, 
f, Statement Control 

The execution of SML statements can be controlled with eithez 
the transfer operation covered earlier or the conditional statement, the 
BNF equations for which are: 

£conditional> ::= Cif clause>? <then clause> 


| if clause> then clause? 
else clause? 


<if clause» ::= “if? <boolean?> 

“it? ‘= U0EF 

{then clause? ::= “thendo¥ sentenced END: 
<else clause? ::= elsedoy? <sentence> END; 
<elsedo? :s= ELSEDO; 

<{thendo? ::= THENDO; 


The conditional statement has the same interpretation as in XPL or 
PL/I. A valid example might be: 


If TEST S1- THENDO; 
CODE 'A=B;';F1l:=FALSE; 


END; ELSEDO; 
CODE 'A=C;';F1l:=TRUE; 
END; 


The execution of run-time statements can be controlled with 


the FLOP/CODELOC construct described in the BNF equations: 


<floating operand? ::= <flop> <primary> ) 

| <£lop> <program label> ) 
<flop? ss= FROP 
<program label> ::= ADDR <primary> 


< code operand? ::= CODELOC 
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In conjunction with the assignment statement, there are four possible 
interpretations which are made depending on the statement form. A state- 
ment of the form: 

FLOP(ADDR 'VAR(MP)') := CODELOC; 
would mean that the present code location should be saved and associated 
with the value of the variable VAR (MP). The inverse statement: 

CODELOC := FLOP(ADDR 'VAR(MP)'); 
would mean that the code location associated with the value of VAR(MP) 
should be inserted into the machine code stream. This particular 
construct lends itself well to the implementation of sueh dates 
structures as statement labels and do loops (see the sample language). 
On the other hand, a statement of the form: 

FLOP (‘ELSE’) := CODELOC; 
would mean that a branch to a presently unknown code stream location is 
to be inserted at this point, which is identified by ‘elise’. The 
appearance of the inverse: 

CODELOC := FLOP ("ELSE") ; 
would cause the previously reserved branch command associated with the 
identifier ‘'else' to be made to the current code stream location. The 
use of these two statements can easily facilitate the implementation of 
such structures as conditional statements. It is important to note that 
the implementation of this Jeane control construct allows embedding ~ 
of structures up to 32 levels deep by associating only the latest occur- 
rence of the flop identifier with the backstuffing request. 

g. Miscellaneous Statements 
The SML error command can be used to cause the user compiler 


to output error messages. The appropriate BNF equations are: 
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Zauxiliary operation> ::= {error? {primary> 
Zerror? ::= ERROR 


A possible use of this command might be something on the order of: 

IF NOT TEST S1 THENDO; 

ERROR ‘STACK IS EMPTY'; 
END; 
In order to stop the compilation process in the user compiler, 
the stop command can be issued. The associated BNF equation is: 
{auxiliary operation> _»-$3=" S20P 

and a typical use might be: 

IF TEST ST1l THENDO; 


Sl@P 
END; 
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IV. THE XPL CGP 


A. AN OVERVIEW 

In its final form, the XPL CGP is a complete compiler generator 
system for the class of MSP languages and the Balgol-2 interpretive 
machine. It is composed of five distinct but closely interrelated 
modules: PRESCANNER, Syntactic Preprocessor, Semantic Preprocessor, 
Superskeleton, and the Balgol-2 Machine. Figure 11 shows how these 
modules are related to one another and the XPL system in which they are 


based. 


B. SYSTEM INPUT 
The only system input necessary to completely specify the user 
compiler in many cases wili be the BNF and SML for the user language. 
The input package has the following general outline: 
control cards 
BEGIN 
declaration set 
BNF and associate SML 
END 
EOF 
1. Control Cards 
Within both Syntactic Preprocessor and Semantic Preprocessor 
there are a number of control toggles which can be turned on to initiate 
various trace and debugging routines. To complement a specific toggle, 
the user must input the appropriate control card. The general format of 
a control card is $SYNTAX. or $SEMANTICS. punched beginning in card 


column 1 and followed by the appropriate keyword, .The functions which 


are toggle controlled and the initial toggle states are as follows: 
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keyword type use state 


LIST both list the analysis program on 
on the printer 

PUNCH both — produce punched card off 

output 

TRACE $syntax. produce a machine trace off 
for the program 

CODE Ssemantics. list the XPL code output on 

OUTPUT Ssyntax. list the XPL code output off 

DUMP S$semantics. print the run statistics off 

ITERATE Ssyntax, try to correct grammar off 


errors, if any 


2. BNF Input 
The BNF productions for the user language are encoded in the 
normal manner, one to a card, The primary production (the first of a 
series of alternate definitions) must be punched beginning in card column 
1. All alternate rican ania must be preceeded by an asterisk, also 
punched in card column l. 
3. SML Input 
All SML cards must be Seiidiesidsicieaat after card column 2, 
including the BEGIN eed ad all declarations which are to immediately 
precede the first BNF production, and the END card which follows the 
last SML statement. The important thing to note is that there must be 
at least one SML statement for and following each BNF card. If no 
semantic 7 is attached to a particular BNF production, then 
the NOCODE command should be used. 
4. End-of-file 
The last input card is the end-of-file (EOF) card which is 


punched in card columns 1-3. 
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C. PRESCANNER 

The function of PRESCANNER is to go through the input deck and create 
two input files for Syntactic Preprocessor and Semantic Preprocessor 
respectively. In the process, PRESCANNER performs a number of other 
important functions. It checks each input card for format errors. It 
ensures that each BNF production has some semantic interpretation, even 
if only NOCODE. Finally, it formalizes the association of SML to BNF by 


the appropriate placement of the SML delimiters @ and #, 


D. SYNTACTIC PREPROCESSOR 

The algorithm of the XPL procedure ANALYZER has been unaltered in 
Syntactic Preprocessor. Major changes in format and minor changes in the 
program have been made only to simplify readability and clarity. 
Additionally, the final program statement: 

RETURN ERROR_COUNT; 
has been added to make the execution of succeeding steps conditional on 
the success of Syntactic Preprocessor in producing the syntactics for 
Superskeleton. 

The input to Syntactic Preprocessor is the corresponding file created 
by PRESCANNER in the previous step. Assuming a SSYNTAX.PUNCH control 
card in the CGP input and the successful analysis of the grammar, Syn- 


tactic Preprocessor outputs punched cards which are then inserted into 


Superskeleton. 


E. SEMANTIC PREPROCESSOR 
Semantic Preprocessor interprets the SML file created by PREPROCESSOR 
and produces two sets of punched cards (assuming a .$SEMANTICS, PUNCH 


control card was included in the CGP input and no errors are encountered). 
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The first is an XPL declaration which sets up the necessary user compiler 
data structures. The second is an XPL source code stream which will 
execute the associated semantic interpretation. When these two sets of 
cards, and those produced by Syntactic Preprocessor, are added to Super- 
skeleton, the result is a complete compiler for the user language. 

As depicted in Figure 12, Semantic Preprocessor was largely built 
from the existing XPL compiler generator system. The BNF for SML was 
first input to ANALYZER, and the resulting syntactics were added to 
Skeleton to produce a syntax checker for SML. Then the semantics and 
mechanics were hand-encoded to interpret the SML program input and output 
the appropriate declarations and XPL code stream, The final program 
structure is thus typical of any user compiler generated under the 


current XPL system. 


F. SUPERSKELETON 

Superskeleton is the basis of the user compiler. Like Semantic 
Preprocessor, it had its beginnings in the current XPL system. It is 
essentially a copy of Skeleton with Balgol-2 mechanics and SML-inter- 
pretive data structures added. The Balgol-2 mechanics are straightforward 
and can be easily understood by referring to Appendices G and H. 

Some of the data structures require more than a passing glance. All 
table entries are made via a hashing scheme and the stack quadruple 
(KEY, ID, OVERFLOW, POINTR) . Stack entries are made via the stack quadruple 
(STK,STKID,STKOVER,STKPTR). The basic FLOP -- construct is implemented 
with the use of the stack triple (FLOP,CODELOC,FLOPOVER); and the 
FLOP (ADDR-~) construct by the use of the table triple (LABELS,LABELADD, 


LABELOVER). 
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Three tagged locations in Superskeleton are reserved for the 
insertion of the punched card syntactics, declarations, and semantics 
respectively. Assuming the user language does not have any primitive 
variables other than those discussed under SML, the user compiler should 
then be ready for production. 

There are a number of control toggles in Superskeleton to aid the 
user in debugging both the compiler semantics and user programs. They 
are complemented by the appearance of a 'S$' immediately followed by the 
appropriate keyword, all contained within a comment statement. The 


available toggles and their initial state are as follows: 


keyword use state 

LIST list superskeleton on the printer on 

PRT trace the allocation of Balgol-2 prt off 
cells 

CODE output the generated Balgol-2 code by off 
syllable 

WORD output the generated Balgol-?2 code by off 
word 

DUMP print out the run statistics off 

STUFF trace the generation of branching off 
operations 


G. THE BALGOL-2 MACHINE 

The Balgol-2 Machine was written for use by students of compiler- 
writing courses at Naval Postgraduate School [Ref. 7]. The resultant 
machine is a simple but extremely powerful interpreter, 

The Balgol-2 machine was written in the XPL language and essentially 
is a software simulation of a fictitious stack-oriented computer. 
Requiring only about 60K of main memory, it contains mechanisms for: 

evaluating arithmetic expressions 
evaluating boolean expressions 
branching 

subroutines and functions 
execution stack manipulation 
subscripting 


input/output 
dynamic memory allocation 
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V. CONCLUSIONS 


A. THE CAPABILITY OF XPL CGP 

As decided at the outset, the primary effort of this thesis would be 
directed at automating the semantic processing phase of the XPL system. 
Although the final product, XPL CGP, was developed without any particular 
user language in mind, the final test was naturally the implementation 
of a user compiler. Accordingly, Sample Language (BNF is given in 
Appendix I) was invented. The input to Prescanner, given in Appendix J, 
was encoded in less than three hours (including the BNF). One debugging 
run was required and the user compiler was implemented with the XPL CGP 
output shown in Appendix K. A number of Sample Language programs were 
subsequently compiled by the user compiler and successfully executed 
using the Balgol-2 machine.. 

The total time required for the complete implementation of Sample 
Language was approximately three hours of user time and four minutes of 
CPU time. In brief, the performance of XPL CGP was impressive when 
compared to the time and effort that would have been required using the 
original XPL system. 

Sample Language does not, of course, test all of the capabilities of 
SML or XPL CGP. Nor is the time that was necessary to implement Sample 
Language necessarily representative. More complex languages will naturally 
require more time to encode and debug. Additionally, the constructs 
available in SML may not be sufficient to describe some functions of 


these languages. 
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B. SUGGESTIONS FOR FURTHER RESEARCH 

Particular problems which have come to the fore and some thoughts 
about extending the capability of SML suggest a number of possible 
improvements to both SML and XPL CGP. 

1. The BNF for SML 

SML was, of course, developed piecemeal. Some of the resulting 
keywords are thus either unwieldy or not suggestive enough of their 
function. It would be desirable to re-examine the BNF and relabel the 
constructs accordingly. For example; CODE(OP---) and FLOP(ADDR---) would 
probably be better labelled as OPERATOR and SAVE-ADDRESS respectively. 
In addition to simply changing the BNF, this relabelling would neces- 
sitate checking the code generators to ensure that the correct production 
stack entry is selected. 

2. Reserved Word Problem 

All of the declared variables in Superskeleton, and there are a 
large number of them, are reserved words in the XPL CGP. To minimize 
the possibility of conflicts with user identifiers, it is suggested that 
the Superskeleton identifiers all be changed to begin with an uncommon 
alphabet element. The user could then freely use identifiers beginning 
with any other element, 

Such a change would, of course, necessitate changing each identi- 
fier for every we dinbeetice in Superskeleton, The best method would 
probably be a short XPL routine with Superskeleton as input and punched 
card output. 

3. Indefinite Tables and Stacks 
Indefinite tables and:stacks (those declared with a 'S' number 


part) are currently implemented with a very inefficient list structure. 
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It seems certain that they could be better implemented with some form of 
mapping function which would allocate, map, and deallocate appropriate 
n-tuples of words. 

In addition to the development of an efficient mapping function, 
such an improvement would probably require some modifications to both 
Semantic Preprocessor and Superskeleton, 

4. Extensions to SML 

There are a number of constructs which might be added to SML to 
further automate the implementation of some user language structures, 

a. Automatic Blocking 

Some form of automatic blocking would probably be useful for 
such language structures as nested BEGIN-END blocks or PROCEDURES. One 
possible approach would be to implement a BLOCK command which would stack 
the state of all other significant data structures and possibly perform 
some sort of re-initialization. An UNBLOCK command couid be used to 
return the program to its previous state. 

b. Parameters 

The addition of a formal ep eae to pass procedure and 
function paremeters would probably be highly useful. One method of imple- 
mentation might be to invoke a PARAMETER( <list ey ) enead which 
would dynamically allocate a chained list of the parameters, stack the 
list pointer for recursive calls, and pass the pointer address to the 
called procedure or function, A RETURN command would pop the stack and 
make a branch to the appropriate location, 

5. Extensions to XPL CGP 
It is not entirely impossible that XPL CGP can be extended to 


form a true compiler-compiler, limited only by the parsing algorithm. 


58 


tay saeaot ti tna. a dale tli. bia 


oa ; _ebrew le aelg 
2 ' 7 : a 
, a A p 

OULaGEh, saej5ti3o He do Josef evet et. 09 soreieng al 

7 . 


hd ite 
> enone list én ones sviuges videdegq Dbhwow su mesa nin 
J erep ee: * 
_ = 


bee § oe 


‘s etedt- © 


7 7 
ae 
sitenIus & iz : 


7 ee 
‘feteev = 


ead wT ae 


69. barn ASE hese 
_ e 


eI qqe oldtonog 
rie res {18} 6 "08 


77 
to eJaJ& 


. : 3 Ga 
tr er “J ; 
ee: ie 


7 | i: ian . to 3708 Y 
; ) . | ‘s 


of3. ntl 





Such an extension is envisioned as developing a Mechanical Meta-Language 
and a Mechanical Preprocessor. 

The Mechanical Meta-Language would contain constructs which would 
enable the user to define the desired machine environment in terms of 
machine registers, instruction format, format interpretation, and an 
instruction set. The Mechanical Preprocessor would probably produce 
either a set of tables or a set of declarations, or both. This output 
would then be inserted into Superskeleton to complete the user compiler. 

| Such an extension would most certainly require some procedure 
changes in Superskeleton, particularly for code emission procedures. Le 
also would possibly require some change to SML, notably in the CODE 


conmands. 


C. CONCLUDING REMARKS 

It has been shown by implementation that the XPL compiler-generator 
system can be extended to include an automatic semantic processing 
capability. The extended system, XPL CGP, has been tested and its per- 
formance was impressive. Suggestions have been made for improvements 
in the semantic meta-language base of XPL CGP to further enhance its 
capability. Finally, it has been postulated that XPL CGP can be extended 
one step further by adecencing the mechanics of the system. As there 
appear to be no insurmountable barriers to this final extension, it is 
concluded that the XPL system can indeed be developed into a compiler- 


compiler. 
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DO; 
END; 
/* CASE 38 */ 
<TYPE SPECIFIER> ::= CHAR */ 
DO; 
FIXV(MP) = TYPE_CHAR;3 
END; 
/* CASE 39 */ 
<TYPE SPECIFIER> ::= INTEGER */ 
DO; 
FIXV(MP) = TYPE_INTEGER3 
END; ' 
4* CASE 40 */ 
<BIT> ::= BIT */ . 
DO; 
FIXV(MP) = TYPE_BIT | SHL(32,8)3 
END3$ 
/*® CASE 41 */ 
<BIT> ::= BIT <NUMBERD> */ 
DO; 


FIXV(MP) = TYPE_BIT | SHL(FIXV(SP),8)3 


END3$ 


s/* CASE 42 */ 
<STACK DECLARATION> 


1* CASE 44 */ 

<STACK> t2= STACK 
DO3 
STACK_FLAG = TRU 


2= <STACK> <STABLE SPECIFIER> 


>= <STACK DECLARATION> , <STABLE SPECIFIER> 
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/* CASE 55 */ 

UNCOND ITI0NAL> ::= <TRANSFER> 
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DO WHILE T YPE ( 13) = STACK ENTRY; 

IF TYPE (14) -.= STACK_ ENTRY 

THEN CALL ERROR (' UNPA IRED STACK PARAMETE RS ' » 1 ) : 
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CALL EM IT ( 'CALL POP ( 1 I | 
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/* CASE 65 */ 

DELETE OPERATION ::= <DELETE> <VAR I ABL E> 
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/* CASE 74 */ 

STACK OPERATION > *. : = POP < I DENT I F I ER> 
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/* CASE 79 */ 

DIRECT> ::= CODE <CHA RACTE R STRI NG> 
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* CASE 85 */ 
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= TRUE; 
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/* CASE 112 */ 

BOOLEAN PRI MARY> ::= <LDEL*> <BCOLE AN> <ROEL*> 
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/* CASE 136 */ 

• /* . <FACTOR> ::= <FACTOR> <**> <PRIMARY> 
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/* CASE 142 */ 

PR I MAR V > ::= <LnEL*> <AR I THMET I C> <RDEL*> 
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PROCEDURE ( INDEX) ; 



DECLARE (I, J, INDEX) FIXED 
I D < INDEX) = 0; 

I = HASH ( K EY ( INDEX) ); 

IF HASH_TABLE ( I ) = INDEX 
THEN DO; 



1 1' 








• ► 

a 






• *» 
o 


• • 


- — ‘ 








UJ 






X 




X 








X 






X 


•* 


UJ 








►— » 


• r 




»— * 


•* 


o 








LL 






X 




2 










O 






o 


1— 1 








— *■ 


*- 




«**» 


J 




t 


• ► 




UJ 


•» 






X 


=£ 


X 


— 




-J 


o 




o 


X 


CL O 


LU 


X 




CO 


2 




< 


X 


X.- J 


Q 


UJ 




< 


O 




X 


> 


> Xll 


2 


c 




K 


a 




oo 


o 


O^x 


»-H 


2 




*- 


X 




•> 




^LLU 




»— » 




*— « 






t— 1 


X 


or> 


II 




• *. 


w 


K 






o 


2X0 


r 


3: 


(X — 




O 


• r 




< 






O 


UJ X 




2 




*» 


1— 


II II II 


— - 


-J 


> LU 


— X — 




h- 


• -or 


oo 




••* 


LL 


O O 


—‘LULU 


X 


oo 


— X 






• » w» «— «. 


CL 


l-Z 


XK J 


(X • *• 


J 


Xh- 


X 


X^»-« 


— 


LU 


O— • 


JOCO 


h-— * 


• «> LU 


oo 


X 


X^*_^ 


~0 — 


> 


2>- 


CQ<< 


2 — 


Q LU 


<< 


h- 


CXX 


— Jl£ 


o 


UJ II •- 


<Xh- 


X — 


LU • -Cr" 


XX 


00 


2 J J 


XXO 




ii *-• 


h-< - 


- X 


• •'X ••‘OX • • 


00 <£ 


< 


♦-•COCO 


JCC J 


II 


H 


-xx 


— UJ 


-^mO X 


-X 




— <! C 


OjLULL 




— XX II 


>-OX 


xh- 


XX II |l UJ 


xoo 


» 


2hh 


OX 


. — * 


X LU LU 


X K 


ouj 


LU || O 


X 


» — 


O 1 1 


V-CUJ 


-o 


XXiZ — 


h>-Z 


x j 


OX 2 


h-X |1 


X ••> 


JII 


1 > 




CLL JX.- 


ZClLiJ 


CLUJ 


2X— XX®— 


Zee 


OH- 


U-0000 


XLUO 




X — LU LU X 


XH — 


LUO •** 


1 ox XX 


Xh^ 


X *-* 


X<< 


00 J 


o 


»-<XXOX 


^20- 


LU 


— 2X00 II 


— Zh* 


XX 


LUIX 


<»-• II 


-J 


— H-X2H- 


lulu ZD 


J_J|- 


XhCZZ 


XX 00 


XX 


> 


—XX 


LL 


ZS^ILLH- <LU 


X *lc>JJX 


Cl — h- 4 x • • 


X |- 


OZUJ 


O 


• ^rV 


ChwwJ 


OXO 


<< J 


DaiHw^ha 


OXXO J J 


LU CO 


O II 


OLU 


jOXXx 


oxo ii uoiu 


ox— xx<-oo 


OXXO JO 


UL X J 


o 


2> 


LLQ-h-hO 


lu<_j 


O 


U J < O > 1— £L 


X< X 


<< 


►— l|— LU • » 


LU "50 


LUQ 


— X 22 


•• O J 1 


mZLJ 


O — 1— ' O Q_ X 


O JX2oO — 


O 00 




OLU || »-»»-hO 


IUOO II 


LU00O 


ooxx^xo 


••OO X 


1 o 


2 


J 


2 > ooz 


h- XX 1 


ILIJ2 


X LU } — } — O 2 


iZXXXX 


2 


LU 


UJ 




LU O 1 CL O- LU 


LUCLDmi 


— HLULU 


••0-000 00 OOXX 


uaOHh 


X 










J 




a. 


< 





UJ o h- 

O CL 00 



217 



ft ft ft ft ft 



•*o 

>c 

cc\- 

HtO 

UJ || — 

►H 

^ O : 



^oo 
*“ I 

COUJ 

ILU 

lucl 

LULL 

q:^ 

• *-LL Q 

O — -. 
HI— 

XcOtO ... 
CO o 



UJ 



UJ' 



CL 

-KO 
^:co 
H II 
CO II 
I ^ 

XI— w < 

artocLXH 

LL fH-CLCO 

XCL3 
II LU^H-C 

a: i— lux 

•~h LL CO CL LU 



ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

■li- 

ft 

* 

-li- 

ft 



-li- 

ft 

ft 

* 

-li- 

ft 

ft 

ft 

-li- 

ft 

ft 

ft 

-ft* 

ft 

-ft* 

*«* 

•li- 

ft 



UJ 

cc 

r> 

a 

UJ 

o 

o 

cc 

a 



•li- 

ft 

ft 

ft 

■ft 

■li- 

ft 

•li- 

ft 

ft 

■ft* 

■ft 

ft 

■li- 

ft 

ft 

■li- 

ft 



* -ft ft -ft ft 



o 

x ft 



< 

X 

o 

cc 

c 

u 



ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft . 
ft 
ft 
ft 
ft 
•li- 
ft 
ft 



cc 



u 

< 

cc 

c 

X 

o 



to 

UJ 

cc 



X 

3 

3 

o 

o 



o 

X - 

►—I 

HO 
a: co 
<r - 
H- 
tOLL 
O 
Hlj 
21 ••* 



O 

II 



LUO 




XX 


o 


XUJ 


X 


o.- 


o 


ox 


1 


o 


X — 


CC LU 


1 — t ►— 1 


o 


o * 


X 


cc. **-o 


Oft 




X 


21>-*CC 


^ft 


•-LU 


tos 


1 CC LL 


CO- 


UJX 




— X3 


Xft 


CL LL CQ 


X 


X3w 


X o 


XC0G1 



- CC 


O- 

LUw 


A 


Xwp 

3 CL CO 


O *-LU 
X|- LL. 


- O 


CL 


c-hco 

W C03 


X3X 


CCCL 


O 


Xcoto 


' Cl 3 


a 


X 


H-3 


X X CO 


CC II 


o 


Oto || 


< <w 


CC 


1 


X 


~ X 


UJCC 


X 


X || cL 


II H • 


- UJ 


*—* * 


-3 LU 



+ ~ 



to 

UJ 

cc 



cc 

UJ 

LL 

LL 

3 

00 



X 

3 

O 

o 

I 

o 

CC 

< 

o 



3 

o 

o 



X 
UJ V— 
H~< 



ft ft ft ft ft 



cc 

3UJ OC !LL OO 

•• Ocl cl xo mjl cc o 

O UJ <t LULL! <13 c 

CHO-JU JZUCQ 

<OOX LL' O UJ 

ooauoxx xxx 

P- QCU^I— LUH-f|~ 
H 
LU 
O 



X- cc 
I H — i O 
O O- LL 
CC X— | 

• -< LL) UJ < 

- O • *• U H 

- CL >- || 

II LU || cO 

II X wh 

HX HJ3 
H*2Dmqcl 
to 3 co X co— 

HX LUO ►-•I—3 c . , 

II tOLL cCU II J2GOUJ 

IU3 | |0 ~ O 

— CL CO • -UJQl— I— OX II 

O CO CL XX UJ o 

X3<UJUJLLXO-2: 

LULUOHH*— 'I— OLU 



a 

cc 

< 

o 

I 



ft 

ft 

■li- 

ft 

ft 

•li- 

ft 

ft 

ft 

■li- 

ft 

•li- 

ft 

ft 

ft 

ft 

ft 

ft 



ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

•li- 

ft 

ft 

ft 



218 



BALGOL EMISSION' PROCEDURES 



* 



CO 



J— 






















CM 






X 






















•» 






o 




























— J 
















• ► 


• ► 










> 
















3 : 






O 






CO 
















LU 


— ■* 




-J 






















O 


CO 




X 






— 
















O 






CL 






— 








• 








O 


UJ 




LU 














- — . 




• f 






Q 




> 






m 








vO 




. — ■ 




11 — 


•-0 




O 


















CO 






— O 










LU 








»• 




*» 






CM - 




LU 






o 








CO 




CO 






— CO 




-J 




UJ 


o 












W*>” 




CO CM- 


h-— 




CO 




CO 


o 








-J 




—1 




► w 


XLU 




< 




-J 






• r- 




X 




X 




— h-LU 


OO 




h- 




LU 


— * <r 




- — ■ 




CO 




CO 




Zh 


-JO 


• r 








- & 




Ni- 












3:0> 


>-0 


r-4 


LU 




• r- 


O* Q 




<M 




— 




■— 




LU^JOJ 


CO CL 


-J 


O 






- *r O 


X 


► 


X 




X 




X 


a>~ 


— X 


+ > 


O 




CO 


2: 


# 


CO 




X 


* 




*- 


Oco_j 


CLO 


CO 


O 


• r 




OUJ» 




0 -^ 




LU 




LU 




0^0 


xo 


H-X 


m 


0 


X 


LUt- H 




— ] 




a 




O 




occc • + 


CO 


X< 


w 


LU 


H- 


«-x>- u 2 


0 


X 


l-H 1 


a 


C\l 


O 


m 


II IhO 


— i 


ox 


CL • * 


• o< 


M 


CO 0 




CO 




0 




O 




002D 


II -J 


-J 


OK 


►— < 


X 


COLL^ h--J 


LU 




UJ 




LU 




LU 


3:~a 


< 


> A 


CL 


COX 


LU 


— _0>- 


CO 


11 


CO 


11 


CO 


II 


CO 


UJLU OX 


coo • - 


CO 


clx • - 




CO 0 


LU CO O CL CO 


< 




< 




< 




< 


OO UJ 


O 


h- 


LULU X 


UJ CO CM OLA 


cl: cl 1— 


O 


2 


O 


3 : 


O 


3 


0 


OOLLI 


X 


11 X •- H- 


CL 


»-h O CM • — 


X>LU»-OLU 




LU 




LU 




UJ 




UUMh 


II 1 • ► 


OO JJ *-• 


O LU 


< O 


ocezoco 




a 




O 




a 




• ► 


0 


h-OOOO X 


OCL VO VO 


LU<0 < 


* 


0 


* 


O 


* 


0 


*■ 


0 


X 


x> 


<< UJ 


LUC 




OJ02U 


X 


0 


X 


O 


X 


0 


X 


0 


UJ 


«'O00XOO •- 


O-JC0XC0X 


••OO LU 




















O-J UJ 


1 OO 


00 


LU LU 


xoodulxo 




















Z>li.x 


XX 


.. CL LUULXU-X 


hQ-OMKQ 




















LUCO*— • 1— 


LULL' 


KO-P 




»— 1 
























5-H 




5 : 
























X 




LU 
























LU 





219 



ft ft ft ft ft 



CM 



o 

CO 



X — 
*— <00 



XX 



— * CM 

5 *f> ► 

0— 00 

CO — w 
= CO J 
-X 

0000 

CM 0C CL 

J.II 

1- hOOOO 






ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 




ft 


ar 


ft 






UJ 






ft 


K 


ft 


• ► 




UJ 




— 


ft 


0C 


ft 


CM 




0 l 




► 


ft 


a: 


ft 


— 




UJ 




LU 


ft 


K 


ft 


O 




X 




a: 


ft 


*-H 


ft 


< 








J 


ft 


J 


ft 






O 




0 


ft 


O 


ft 


0 




J 




K 


ft 


< 


ft 






CO 




00 


ft 




ft 


♦— » 




0 








h- 




— 


# 




ft 






cc 




— 


ft 


< 


ft 


— 




»—* 






ft 


J 


ft 


00 




Z) 






ft 


tj\ 




— 




UJ 




— 


ft 


0 l 


ft 


— 


ft 


00 


ft 






UJ 




J 


ft 


cl 


ft 


< 




X 




cc 


ft 


0 


ft 


UJ 




UJ 




H 


ft 


0 


ft 






0 




—1 


ft 


cl 


ft 






CL 




Wr 


ft 




ft 


a: 








0 


ft 




ft 


cc 








a: 


ft 




ft 


UJ 










ft 




ft 


j • 








-Jh- 


ft 




ft 


<*-* 








ox 


ft 




ft 


UJ 








-UJ 


ft 




ft 



ft ft 

* ft ft ft ft 



ft 

ft 

ft 

ft 

ft 

o 

UJ 

X 

o 

00 

00 

< 



UJ 

UJ 

CO 

00 

< 

X 



I 

K 



I 







0 




• — 








h- 












cl 




CM 








CL 




— 








- - 




3 : 








— 




O 






• r> 






J 








— 




IL 






M 






QC 






*• 


J 


h- 


LU 






— 


J 


X 


> 






ZZ 


UJ 


0 


O 






0 


0 


K 








J 




a: 


LU 






LL 


K 


a 


J 






o : 


ctr 




CO 






UJ 


CL 


• - l 


< 






> 


«— 


X 


H 




• - 


0 


— ft 


• — <j 






rH 




» ft •* 


O +H- 


< 




1“ 


h- 


CL ft O 


UJ < 


h- 




+ cc 


a: 


* ft 


X 1-0 


< 




0l 


CL 


'-"ft II •* 


M XX 


O 




1 — X 


— 


UJ- — i 


LL 0< 




• r> 


x< 


w • — 


h- — 1 


<x 


W 


O 


ox 


clo 


X It HK 


• — h- 


cc 




H 


0 


co 1 x 


— X •» , <A 


0 


II 


CL A 


QC II 


w h- H* O • 


X H-O 


CL 




(X 


cl 


JDZhh 


'-"♦-'X h- 


a. 


h- 


1 K 


LUh- 


ocloclo: 


UwO II X 


UJ 


•-X 


: ii x. 


- X 


CX | — | — CL. CL 


• •a: < 0 


00 


1 OO JO 


hOo: 1- 


LUXUJKI — <0 J 


< 






ZOClZUJ 


OOQTCZl— O J II h- 


izoc 


<oc 


O wCLO 


<LU<CU< 


< 


< 



UJ 

a: 

X 



••ouazua ^uzo 

hOh UU O UJhKO 

cLararu-x zilkujz 

OuClOlhhK UJ ♦— 1 h— Q CX UJ 



o 



CLOJ <OZU H Q' r ZQ'- 



000 11 1- uj 

h-OCLU <ULX 
00 0 l Q ►— < O h- 

H 

UJ 

O 



C i 

zo 

LUQ 



220 



MAXDATA - DAT ACNT TO MAXDATA 





• ► 














O 






o 














«— f 






UJ 














•• 






X 














O 






1—4 




• r- 










O 






u 




«*■" 




















*—* 










w 






— 




ro 










-J 






K 




•* 










X 






•» 




-J 










00 






2 : 




1 
















•* 














— 










*— 
















•« 




— J 






• r> 












• *• 


X 






O 




J 






•* 


— 


00 






UJ 




X 








— * 


•» 






X 




LL 






•» 


CM 


- — . 






►— t 




X 






►— 1 


•» 








X 




X 






<— 


sf 


*• 










• 








+ 


00 •»• 






— . 










*- 














vOtO 






cc 




turn 






»f> ► »-» 




r— f 






UJ 


a: 


•►h- Z 


• ^ 




-^►—4 E 




•'K 






h- 


X 




h- 


• *> 


O - CO 


X. 




s 




0 


00 


• *• GO tO 


• *■ 


1— 


OO r 


* 


w 




• 


< 




~ 1 ~ 


II 


0 


-JO 




a: 11 




UJ 


a: •* 


•UJ 


-J— 




II 2 


♦'-J—* to 




X 




O 




0 — 


1 -7XH 


— 1 




X •'CM 


0 


00 *— 


i—i 


< 


—Xoocm- 


00 




—a: 


LULL •'•*'11- 




>—< 




cc 


000 — 


a: cm 


<0 +o»^oe: 


2Th- 


0LUJUL — UJ 


UJ 


11 ~ 


X 


o 


w XO - 


Kl 0< 


w00 


«— CLX^CL 


00 


X 


00 


• r 'h- 


• • UJO0I— )— -3 


< -J It Oh- II II 


C<UJ 


UJ'— CC *— *— 


< 


xo 


< 


»“«U0 


OCX O oO'— 


CCh- 


< 




CC '— X 


0 


xo 


0 


K 


2Z)UJ2:H-I 


X JZOhS^ 


II <0 


• •OUJcXOUJ 




QLX> •• 




2X 




•*< II II II UJ 


0 


roh 


VOCXICOO 




• ► O 




OLO 


^lu<jO(/)h5: u_x 


-c. 


00 


UUJ<00O< 


* 


O X 




o 


KO_J 




^ h- — 1 ' — ‘ J — 


UJ 


•oz 


<0-J 0 


M 


O X 


Vs 


h- O 


i/)0<J II 


M ii 


1 1 II 




O LUO 


CCOO II II 








UJ'Z. 


xacx 




0 




ZU.IZ 


LL CL UJ 0 








OCX 


CXD-Q-Di— 




LL'mKUJ 


ILQ-OmKO 










O 










O 










K 










h- 










00 










00 









o 

X * 
UJ \ 



221 



REF = SHR ( T t 8 ) 8 "FFFF" ; 

CODE ( I ) = ( T £ " FFOOOO FF M ) | SHL(lOC,8) 



>* 

CM 



u_ 

u_ 

u_ 

u_ 

u_ 

u. 



— — CJ 
*-”•00 

+ - h- 
O — 

LU-J 



o 

o 



• »> 




o— 






• r* 


o 




Col 






m 


o 




OX 


sj- 






-U 




— 00 


CM 










CL 


► 






— 




X— 


— 




* 






00 


— 




* 


— 




— 


LL 




• ^ 


£ 




— r 


LL 




O — 


o 






r 




X — 


o 




-5 






-H r— < 


o 




CC LL 


cO 




a •- + 


o 




-LL 






LL — -h 


u_ 




— LL 


o 




O — — 


u_ 




r LL 


o 




h-^UJ 


LL 




LLLL 


-J 




l/} — O 


• —LL 




LL LL 


w 




V'LUC 


- ~ 




m «» 


— 




UDu 


LL 






_J 




<o - 


LL CO 




coco 


— X 


— 


CDUH 


LL 






— 00 


■» 


- 4- 


LL h- 




K 1 — rH 


00 




t w 


s 




+ II 




* — ■ •* 




* 


W' 


►— « 


W 


* LULU 


CO II 




-J II 




LU 


* oo 






X 


LUr-4 


h- 


* oo 


H — 


CO 


00 — 


o + 


>- 


- oo 


H-i 




. M 


o~ 


CD 


Cl CL 


II — 


UJ 


II — 


o— 


— 


ii 


UJ 


00 


UJ 


UJ 


— 1 


oo 


LLO 


< 


LLO II O 


o 


1 — o o 


LUC 


o 


LUC 


o 


c£ * 


-o 


QCO •- 




Q^UhU •- 


K-oao-j 


O 




• ^ 


o 


ZOHO-J 






c 


z 


o 


o<i< 



UJ 



UJ 



-uzouu 

O LLI 
ZULl 
UJhhH- 



o 

•-<£ 
U_CG 
LULL 
CX IL 

Z> 

zh- 

cloo 

-o 

OhC 

z:uj2 

LLI UJ 






** 

+ 



i-H 


— CM 


K* 




►— » 


m m 


2 : 






— 


o 




< 


4* • - < 


H 




h- 




CL 






hhZh •- cm— cm 


CL 


• #» 


mo*- 


ZZUZ 4* hhQh 






H 


oo<o •- hm r— i 


+ 




A II 


JKhJO+ II 1! 




1 


1 


VtfO-o < + •- 


\- 




trHo— 


00 Cl O L0 CM 1 — — — t-h 


z : 


h- 




^ ►— 1 C r— < CM 1 * 


o 


X 


LU< -~«HH 


tl II II II o< O | 


< 


o 


C£ 1 — UJ 


II KhlLJ — — 


H* 


-J 


z><r_j< ii 


— — DCCO II << 1! CM 


< 


• ->*■ 


• • O oo m |— 


KOHMfOdCM \— \— *-h 


OOL0 


LULU X <r-H 


Z s-' w w ^ X m<<r-H 






OO II 20m 


*-0<<<< II II 2hQQh || 


• - II 


II II 


H-O 


O JHKH-H 


o 




LL CL r— i O 


Z>««H(\JO CMXrHM-aj 


Cl CL l-» O 


LUOOQCJOC^hQ 


LU^i 


1— 4 HH 



o 

o 



222 



8 8 8 8 8 



8 

8 

8 

8 

8 

2 

UJ 

K 

K 

►—< 

oc 



8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

*8 

8* 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

*8 



00 

UJ 

a: 

=) 

o 

UJ 

o 

o 

a: 

cl 

a : 

UJ 



< 

o 

00 



8 

8 

8 

8 

8 

8 

8 

8 

■8 

-8 

-8 

-8 

8 

■8 

8 

*8 

8 

*8 

-8 

■8 

•8 

-8 



CL 

O 









3Z 












2Cl 










8 


8 




(O 




O 








UJ 












o ♦* 


• *> 






-J 


8 


8 




K 




|K 


< 


• ► 












2 




KX 


K 


«— » 




u_ 


8 


8 




••o 




X LU 


< 


CO 












OO 


hO 


UJ K 


D 


♦—l 


• *» 


UJ 


8 


8 




UJO 


»-HCL 


K 




w 


% 


o 






K 


X-J 


2< 


CL 


It 


UJ 


< 


o 


’ 8 


8 


►— t 


o 


hU 


II K 


r-H 


o 


K 


< o 






2 


LL < 


•* -J 1 


00 


— * 


o 


< 


K 


8 


8 


*— 1 


o 


O IK 


K CD 


c\j < <r + 


o •- 


oc 


< *8 






_J 


— UJ 


1 — UJ 




♦— < i — ►— < 


r-t 




O -8 


8 


8 


1 ^ 


cm II O 


II xo 


2 00 


<X r>N^* • ► 


II 


O II 








1- O 


00 CL 


UJ 


>— < 


OO hmC 


+ 


K 


|| UJ8 UJUJ 


8 


8 


•rx **cl 


*K 


UJ K _J 


-J II 


K •* kW ' 


->-* 




08 O-J 






r^UJ2< 


r-4C0 


O •- -J*- 


1 


II OLJ || || 


r— H 


r~4fO 


— •<- <•— 


8 


8 


•» KCX.O 


• -O0'-' || 


Jo:A<Chh 


O O-J 


»— 1 HH 


►H 1—1 


vtCL CLU. 






UJ + o I*- 


uu^K »' 


><XUJ ooxx 


r-< 1 — ' « — ( 


w- 


W 


►— 'OO II 00 CL 


8 


8 


oc: iihho: 


or zh- 


>>CL 


UJUJ 


II 


• r < II 


II < 


- 1 12 






O CL V LULU < 


DtUDLL- 


ILL021LI-K 


UJ 


Oh 


1 


r-sUJKUJO 


8 


8 


OO OCOX 


CcrOO 


or or lu oo 




coilx 


2<Cr-H 


co< 


-LOJO 






UJ CL O 


UJ<u;O0 || IL’CLLXO 




►— <*-H | 


LUO*-' 


o 


• -LLCCCLCQ 


8 


8 


O 11 02-J 


OJJJ 


CD ILHhliJ 








o 


OJOhOO 






O UJ JO 


OOJwCS 




o 




20 


ZhO^OZ 


8 


8 


• •CL Cl LLX<2 


♦ . cl uj < < o O □ 




o 




uuo 


UJli.QQQU.1 






CLCLO^KOLU 


ZQ-CULLCD 


20 












8 8 


8 88 


< 


< 


















X 


O 


















o 


00 







223 































— * 
























o 

•* 
























— * 
























r— < 








• »■ 










• *“ 






•» 








r-A 










z 






o 


















o 






•» 








1 










LL 






K 
























X 
























UJ 








•— 1 










1 






K 








OO 
























w- 










*-A 






CL 






• #> 


X 










OO 






K 


# 




— * 


UJ 
















00 






Cl . 


O 










+ 






CD 






O 


2 
















X 


CL 


Cl 


•» 


>— « 










LU 






O0 


UJ 


O 


o 


1 










z> 








►— < 


r> 


•* 


> 










-J 






— 


LL 


K 


K 












< 






— 




X 


X 


KO 










> 








K 


LU 


UJ 


•— K 










1 




V 


m 


2 


K 


K 


2 










CL 




* 




LU 


w 




h— < -— ■» 










LU 






t • 


O 


LU 


a: 


1 i— 1 










CD 






CL 


►— < 


• -K 


K 


1 1 










2 




cl 


UJ 




K>- 


00 


O f-A 








• r 


3 




LU 


K 


cl 


*— « CD 


CD 


UJ00 








K 


2 




K 


O 


o 


2~ 


O 


> — 














O 


< 




•—K 


00 


cLX 








2 •- 


•fr 




< 


QL 


o 






UJ UJ 








*— < 




• * 


cl 


< 


a: 


lo 


— — • r 


ooO 








JO- 


O 


— ' 


< 


X 


o 


K»- 




02 -— • - 








lo 


H 


— 


X 


o 




xo 


o 


f/MM »— 1 








K •* 




K 


o 






UJ I 


oo 




• •* 




* 


Xh 


II 


X 




-J 


o 


Kcl 


O CD 


II >> II ** 


K 






UJX 




LU 


-J 


< 


UJ 


o 


CD — 


V 2 


2 


• *- 




hi u: 


• * LU 


K 


< 


o 


> 


o 1 


X 


ii it •-2a' 


LU 


K 


CL 


H02D 


w 


o 


UJ 


CL 


ho: 


II K 


r— ^ CUJD 


O 


X 


LU 


O — LLOL-J 


UJ 


UJ 


-J 


UJ 


UJ 


O OHCO^OO^h- 


>— < 


UJ 


CD 


• - I — LL! “ 


3< 


K 


-J 


-J 


oo 


Hh 


02 


O OLD 




b- •• 


2 


CL K 


K > 


>- 


-J 


»— • 


UJ 


K 


AOLUALLOCDZho: • - 


|| 


O 


O 


LU CL X V LU l 


CD 


► — f 


*• 


CL 


+ UJ 


CQ_J 


*-.Q LU O 


2 


— a: 


2 


CD OCO 


CL CL 


« — ■ 




w 




— J •- 


C\ r-H 


1 U.X 2 


2cL 


— < 




2 •- • — < 


LU 


UJ 


1 


OL 


1 


Cl PuZ II 002T2»-<|- LU 


•-LLO 


o 


1 


2 CL II II 002 CD 


CL 


1 


o 


1 


OKO 


UJ 


LULL' 


oyh 


O I — 


1 


2UJ 


u~2 


> 




cl 




• - O 


U-XHUII 


20UJ 


UKH 




>CL r-4LL 


ID 


K 


o 


cl 


H 


a: II ZZmHoom 


•KK 


LLKCiT ir 


CC LU 1 


<\! 


II UJOOO — 


K2 


cl 




UJ 




UJ UJ 






O 


o 




CL 


i 


< 


LU 




UJ 


>Q-LL I 






2 


It II 


UJ 


200 




X 


00 


u 


00 


luo^k 






UJ •- -J 


00 


UJU-O 


1 


o 


< 


-j 


< 


CL 








QO — J Q_ 


< 


X 






o 


< 


O 


oo 








20<0 


o 


oo 




UJ 




o •- 




LLO 








UJCGO •- 




KO 




OO 




• •> o 












O 




* 




< 


* 


O 2 


* 


o 








2 




o 




O 


s 


O LU 




o 








UJ 


X 


o 





o 

20 

LUO 



224 



CASE 3 — SPECIAL CHARACTER 



* 





z 


II 


o 


V 


►— < 
X 


CL 


< 


o 


>— 1 
X 


03 


Z 

LU 



UJ 



CD 

II 



UJ ^ 

Q 

2 * 
OJ X 



X 

OJ 



UJ 

X 

X 

CD 

X 



|| • •*#* 
HZ 

z cc 

UJ II 3 
^ X 
OOlUJ 

hua: — 

• *> Q 

o z 

O UJ 





0l 




o 


* 


•* 




X 




X 




UJ 


z 


1 — 


< 


•«' H 


-j 


uu 


CO 


X 4* 

X H 




CO CL 


1 


O 1 




UJ 


>*- 


•-3 II Ol 

*— H I— i L_) 


uu 


ia 


oo 


II 1*0 II 


< 


O 


o 


OlO zcl 
DO UU O • ^ 




• Q 




o z 




O LU 



o 








a 








X 




# 




UJ 








cc 


•- 


LU 




o 




a 





z 


w 




o 


uu 




t-4 


X 




X 


X 




< 


CO 




o 






*— < 


II 




— 1 


r - 




a 


X 






~3 


z 


X 


CL 3 


o •* 


3 


OX 


Ol »-h 


3 


*» 


X 


X 


X II 


uu + 




X 




1 


UJZ 


II CL 


1 


X uu 


O 






z 


ID 


• •‘UUOOuu ii ^ 




r-^XXOX z 


UJ 


X 


OCL CL 


00 


II CCZUJXU'O 


< 


LU LO 


QX 


o 


CLLLX3 


2TUU 




U H Xli-' 


UUCL 




• *> 


o 




o 


z 




Q 


uu 



> 
»— t 

a 



a: 

o 



z 

uu 



o 

0 

1 
I 

vO 

OJ 

OO 

< 

o 



UJ 



X 

CD 

II 

r 



Q_ 

O 



UJ 

Q 

>— i 
> 
►—< 

a 



x 

» *>LU 

C^X 

<w , 

X LU O UJ 3 
UhO^h 
X OLD 



z 

-ZCL 



OJ 

X H • ** 

XOO II O 
CD O 

LU r— < 

II — I L/0 2 

HH UJ 

(NJXLLX 



JCQZH^ '-LOjtwh 



_J LU 

<LLX 
L_)>— < I — 



o •* 

ZhO 

UJCOO 



# O 
X o 



225 



-= BYTE!'*') | 32 -.= BYTE!'/') 

BYTE! ' $' ) 



o 

2: 

o 



cl 

o 



CM 

CO 



O 

cl 

K 

x 

o 



UJ 

to 



UJ 



UJ 

CO 



UJ 



I 

h- 

X 

UJ • •> 

1-0 



CM II II 
O — — UJ— -CO 

* (._) » w'Clcl. 

f hL U3<-.jOO 



o 

2: 

*— I 

cl 

h- 

00 







—1 


to 




O 












1 




r» 










O 


CL 




m 










O 


O 




O 


• r 








h- 






X 


— 










r— < 




O 


r-< 




• ** 




O 


to 




_J 


to 




— 




2T 


•* 






1 




m 




*— t 


1 — 




O 


CL 








a: 


X 




O 


O 




» 




x 


UJ 




h- 


•* 








00 


h- 






r— < 




w 


x 




w 




O 


CO 




UJ 


LA 


a: 


cl 




X 


•» 


— 


h- 


CM 


UJ 


K 




»— 1 


X 


» 


X 




h- 


CO 




CL 


X 




CD 


A 


0 


CD 




X 


UJ 








< 


3 




OO 


X 


• 


II 


CL 


a: 


to 


x 




w 




r 


O 


< 




tA 


a: 


cl 


UJ 



X 

o 



CL *-< 



CM UJ 
h~ 

A O 



to 

CO 



X 

X 

CD 



• 0- cl- oxx 


CL 


CL 




OX •• 


— 


w 


a 


• ^ 




< 


3 




II ^<w-h- 0 TUU 


O 


UJ 




, — i 


. 0 


CL 


0 


O 


CL 


CL 


to 


II 


ujcluj^lux | 1 


r» 


X 




X-J 


0 


O 


CO 


CL 


O 


< 




r 


— 1 — | — X 3 1 — X X 


X 


O 




X |+ 


CD 


CL 




< 




X 


— 




(MX X XOhh 


X 


< 




UJX 




CL • •> 


«— 1 II *• 


O 


+ 


O 


- — 


— 


to CO— JCO— IcOOOO 


UJ 


CL 


• * 


X XCL 


X 


UjX 


to rH 


1 




m 




CL 


w — J — J CLCL 


X 


< 


O 


w-IJUO 


X •• 


■ CL 


OX 


X 


— 


w 


0 


O 


-J IK II < 11 U-<< 


• #> w 


X 


2 : 


UJX 


OOJD 


AO 


• •'UJ • 


O 


CL 


0 


—• 


000 *—2:2: 


CLUJ 


O 


H- « 


• -X II 


ZDJh 


CD || OOO 


O 


O 


CD 


X 


clcm cm c\j 


• -<X 




CL 


hX II 


• •‘UJ 


<UJ 


Cl 




CD 


CL 




X 


KtOZtOZtOZZUJ 


CMXX 


1 


Hr 


covclOjzuq: 


^OZH II —1 II 


w 


CL 


r-» |l 


• -UJ 


2 UJ UJ LULL 1 to 


tOOCQ 


1 


to 


+ uo uj 




C LUX 




X 


ujx 


to 


CLX 


OILIILILLIXJ 






• #» 


iua 


U-X 




ZU-IUJCL<H 


X 


# r> CL 


o<~ 



- II -J II 


X 


cL 11 ••ajuzujMh 


UHhhUOtO- OOJD AUIUJ 


O -J 




ILI rHLJ^ UJtO 


O ZDJh DUh 


ZH<f\J 


UJ 


>X Xll-X-J 


z uj <ix a x 


LUtOOOO 


to 


UJUJ II 11 3 :XXUJ 


ujfjzua: •••ox— ico 


O 


< 


CuX 


0 UJ O Uj .j 


X 


0 


OQhclO 


xxx xxx<x 


UJ •* 




ILhtOOO 


UJMh LLI M }— O ►-< 


UJ 

X 


# 


a 




UJ 


V. 


0 





226 





O 












•» 












«. 












O 












2 












O 












-J 












O 












O 












K 












O 












2 












*— 1 


• *■ 




- — . 






O' 


CL 




m 






H 


O 


# 


II 






00 






» 








1 




w 






a: 




00 


UJ 






UJ 


H ^ 


0 


f— 






K 




0 


>- 






O 


2 Cl 


UJ 


CD 




in 


< 


*-<o 








in 


a: 


O ♦* 


cC 


II •- 




(NJ 


< 


• * |l— 


0 


r 2 






X 


- KX 




0 




A 


0 


- XLU 


2 


— 1 






m* 


- UJ|— 


0 


Cl O 00 • 




<*— 


w 


- h- 


0 


OO Or-< 




0 


a: 


a: 


0 


0 O 




• *0 


O 


• — II K 


0 


H II UJ + 




2 CD 


a: 


— 00 




X 




or — 


a: 


KcO 


1 


UJ 2 || CL 




ox 


UJ 2 


ChD 


1 


1— LU O 




KK 


** 0 : 


0200 




— X *-2 




lUOO-iD 


CC ►-“< • +■ 


GO 


. ••'UUC3CUJ || • 




0£2O_JI- 


0 II 0 




Hf-hC.^ 2 


• e 


UJ 


<uu 


II 1 


UJ 


X O CL CC 


r-> 


20200 : 


•- hh II 


00 


|| CC2lUhC»0 




LU 


LU 


ooxx 


< 


U-J 00 01 — 


+ 


XILI 


20UJLUCL 


0 


CLUX-J 2 UJ 






1— 


lUCChhO^ 




O h 1— LU LUGC*** 


X 






O 




.•K O 


0 






2 


# 


O 2 








UJ 




O UJ 


II 



o o 

2X 00 
LUO • *> 
OO 
22 
LULU 






# & # 


*ft 










* 






* 










* 




•ft 










■ft 






* 




•ft 


• * 














* 




* 






* 




-ft 


— 




* 




•ft 


O 










O 




* 




■ft 


O 










O 




* 




■ft 


S 








*ft 


O 




* 




■ft 


O 










O 








*ft 


O 














>C 




ft 


m 




# 




■ft 


0 










0 






LU 


•ft 


2 






H 


•ft 


1 - 






< 








# 


O 


•ft 


— 






O 










2 


* 


m 






< 




• e- • t 




tf 




* 


O- 






LU 




tu 






2 


■ft 


X — 






H- 1 




H-i 






1— 


■ft 


u. 


• r- 








0 - 


w t»> 


* 




■ft 


HO • 


O- 








c- 


» © 






■ft 




•» 








OC'O— 


— 


# 




•ft 


turn — 





* 




*ft 


01-0 


* UJ 








.-c 0 


OK 


* 




■ft 


—•a:— h 


< 








1— <r— — 


OO — 


•* 




ft 


«-X X 


00— 








LUO UJ 


UJ 






*ft 


O OO 


2 LU 








<UJ<0 


O •- 


# 




ft 


OOOoOO ^ 


II < LU 








00<00xCO 


002 


# 




ft 


UJ O0 LU 0 


LL> OO *— * 








XOOSOH 


OUJK 


# 




ft 


w- UJ O 


<2 1 








ujs:iis:ooto k 


* 




ft 


•• ai o*-*i/>nZ 








UJOUJIUI— 2 


UJ 


* 




ft 


20 a:o 


V2Ka: 








>-<UJ< <— K 


^ a 






ft 


HUJW — 


K2X 








raoLo n 


U-'hO 






ft 


1— XUJLU 


UXX2 








2X02 H-mKDLU 


•ft -ft * -ft 


ft 


»— » 










X 










X 





227 



* * tt * 









■R- 
















* 




* 












* 




* 






► 
















* * 




— 


* 




* 






X «— i 




— 












O CM 










-R- 


__ 




QT ►H 












. 




<► ► 




H 


* 




■R 






x<x-< 




1 








* 




• UU 




X 


* 




* 






► CD * 




w* 








| 




- oc 




00 








1 




XHO 




X 








• r 




CLO ► 




< 






* 


UJ — 




<0—1 




0 








oz 




o- m 






* 






<0 




oc ► ► 




1 








0 — 




CD* O 










# 


OH 




— LUQ.W. 




X 








2< 




OIL LUO 




< 






R 


<(X 




uu* co < 




0 








-JUU 




X 






-* 




* 


2: 




»-H* UJ) 




— 








(XUU 




u,xh~ 




— 


tf 




* 


ujo 




<xclx 












00 1 




— »< 1 1 l»H 




rH 




X 


•R- 


DIL 




XDOO 




X 




0 




0 




►X~ O 






* 


►-« 


* 


1 1 




X < •'UU 




— • r 








1 UJ 




<r>* x 




— * 




< 




s: 




O- hH 




H 




M 








►^00 IL 




. * 




H-< 




OH 




<x O .* 




t— ( * 


# 


-J 


■R 


UJ ► 




<JO 




1 




< 




XX 




UUCDCNJsC 




X II 






•R* 


00 




X »-H< r-4%0 




w* 




H 








•+-*» rO 




xuu 


4o 


►— 1 


*• 


XH 




H~ w *00 * 




HX 








<< 




*•2!- xm 




x>-< 






4c 


HOT 




OH><fn 




Oh 








XUU 




w. oom 




X 


* 




R 


XX 




(XX * 




bZ 








00 UU 




►UU*? ►LA 




— 0 






R 


» 0 




Q^h- — O 




—0 








— 1 




LUO ► ► CO 




«J •* 


# 




R 


LULL 


UU* UU LU UU 


• •■ | — < * CL ► 


• ♦> 


uuo UU 








zo 


00 ALU 00 OO 00 


— O <X UU UU 'J* 




0 X 


-R- 




R 


t-H | 


-J (X 00 1 O -J 


h<<xcoh • 


2 : 


< • »— I 








1 — LU 


UUUJ-U UU uu UJ 


►aCXOXCMO o 




00 * H 


* 




R 


IH 


'* >-< LU ► 


0<0*?UU ►o 


00 


00 1 








o< 


A »-U. A ^ ^ 


►X ► Ovfcr II — i 


X 


UU — O 


* 




R 


XO 


CL ♦ — ' • r O ^ m ►— 1 


•• LUO — ►LU'tHtr r 


< 


X— x 








< * 


UU H— X 


uuO *-i- Ocm o O' + 


o 


w < 


* 




* 


H 


CD II X »-• || II II 


X<UUrHX- ►+o — in 




uucL 1 








LU 


X LU II X 


HH00O*-^< ►co o= X 


A 


X < UU 






R 


HLL H 


Z)(XO HO LU |LU 


Hoo <12* — 'O—<r0 a< 




»— <UJ | 








<o*-x 


X UU — ' I — 00 X O' — — J - 


)llj to i — * cxcmo r o 


X — ( 


X x < 






R 


• • O uu 


VcQVZVwVh h •** 


D5IOOZ •‘UJ ►OO X 


< 


1 0 








x •- tzuo- 


* X- UU- CC m >► LL * 


ZwUJO* CD CM r-i CD tO < || 


o + 


1 — 1 


■R- 




R 


0 **-ujho<h ' 


Z> C H C 


<uuxx_JXcnM 2 : o 




X— H 








MiucXMa w 


II X || hh (I o0 || O || UU || 


lor — 'iijr^o q: x 


uux 


•-« X 






R 


H(X<*-hoooo— <> 




LUOUUUU(X> ► 0<LL< 


-j 


0T* m 








<3CL(X(X | 


00X00X00X00X00X00 


HOqCXClOCM II LU *—♦ O •— 4 II 


CL (X 






R 


MO JCLLUUU II II 


UJ UU LU LU UU 


<UU<<<2TIA II X Hi 


► CL 








MUUH >—> 


ILIILILLIU.IILIIL 


QUJJ- - t-*CL ^ZZ 






* 




R 


JOOJ- CD »— • 00 


mHhHhH m HhHh 


looo < X UJUU II 




Q-J 0 








< O uu j 3 




HOT LULU UU <UL X X 


0 


X< 2: 


•* 




R 


»-<(X-0< OO 




ZQ.QQ XQHhhZQ 


UUO LU 








H CL UJo OO 




►— 






* * 


# ■>;■ -K- 


►— < 




(X 












X 





Cl 



228 
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RESTORELABEL : 

PROCEDURE ( ENTRY) ; 
DECLARE ENTRY CHARACTER 
I = FINDLABELC ENTRY) ; 
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RECORD (RECSIZE) FIXED, /* HOLD ONE LINE FROM FILE1 (CODE FILE) 
M ( SIZE) FIXED, /* MEMORY OF SIMULATED BALGOL-2 MACHINE 
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SHR ( L I NK J » 39 ) >0 THEN 

00; CALL RELEASE (J + l ) ; J=LINKJ£F3; LINKJ=M(J) 
END; 
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RT 6 ” 7 F " ; 

T>MAX 0 P THEN /* INVALID OPERATOR 
CALL ERROR ( 6 ) ; ELSE 
DO CASE RT 5 
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RB<RA THEN RB=1; ELSE RB=0; POP; STEP; TESTPLSS*) 
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CGP INPUT FOR THE SAMPLE LANGUAGE 
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